home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / surfsrc3.zip / TITLESCR.INC < prev    next >
Text File  |  1991-11-24  |  977b  |  24 lines
  1. procedure TITLESCREEN;
  2. var ch: char;
  3.  
  4. begin
  5.   Clrscr;
  6.   writeln('    This is SURFMODL, a public domain surface modeling program.');
  7.   writeln('SURFMODL is distributed without any warranty, express or implied.');
  8.   writeln('In no event shall the authors be liable for any loss of profit or');
  9.   writeln('any other commercial damage, including but not limited to');
  10.   writeln('special, incidental, consequential or other damages.');
  11.   writeln;
  12.   writeln('SURFMODL may be freely distributed, or distributed at nominal');
  13.   writeln('copying/mailing fee, but may not be otherwise charged for.');
  14.   writeln('It may not be distributed with commercial software without');
  15.   writeln('express written permission of the principle author:');
  16.   writeln('  Kenneth Van Camp');
  17.   writeln('  R.D. #1 Box 1255');
  18.   writeln('  East Stroudsburg, PA  18301');
  19.   writeln('  U.S.A.');
  20.   writeln;
  21.   writeln ('Press any key...');
  22.   ch := readkey;
  23. end; { procedure TITLESCREEN }
  24.